(defvar *builtins*
	'(APPLY EVAL
      QUIT LOAD %MACROCALL PRINT GC DEBUG
	  %MALLOC %MALLOC-EXEC %FREE %FREE-EXEC
	  %%SET %%GET
      %ERROR %STRERROR
      NUMBER+ NUMBER- INTEGER+ INTEGER-
      * / MOD NUMBER?
      == < > NUMBER== NUMBER< NUMBER> INTEGER== INTEGER< INTEGER> CHARACTER== CHARACTER< CHARACTER>
      BIT-OR BIT-AND BIT-XOR << >> CODE-CHAR INTEGER CHARACTER?
      EQ EQL MAKE-SYMBOL MAKE-PACKAGE ATOM %TYPE-ID %%ID
      SYMBOL-NAME SYMBOL-VALUE %SETQ-ATOM-VALUE
      SYMBOL-FUNCTION =-SYMBOL-FUNCTION SYMBOL-PACKAGE
      FUNCTION? BUILTIN? MACRO? %ATOM-LIST
      NOT CONS CAR CDR CPR RPLACA RPLACD RPLACP CONS?
      LAST COPY-LIST NTHCDR NTH FILTER MAPCAR
      ELT %SET-ELT LENGTH
      STRING? MAKE-STRING STRING== STRING-CONCAT STRING LIST-STRING
      MAKE-ARRAY ARRAY? AREF =-AREF
      MACROEXPAND-1 MACROEXPAND
      %PRINC %FORCE-OUTPUT %READ-CHAR
      FILE-EXISTS? %FOPEN %FEOF %FCLOSE %DIRECTORY %STAT READLINK
      %TERMINAL-RAW %TERMINAL-NORMAL
      END-DEBUG
      ALIEN-DLOPEN ALIEN-DLCLOSE ALIEN-DLSYM ALIEN-CALL
      SYS-IMAGE-CREATE SYS-IMAGE-LOAD
      OPEN-SOCKET ACCEPT RECV SEND CLOSE-CONNECTION CLOSE-SOCKET))

(defvar *specials*
    '(%SET-LOCAL-FUN))
